/ 64'er 1989 May / 64er_Magazin_89-05_1989_Markt__Technik_de.d64 / thats it.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 22 2e 22 0a 00 3b 20 | 2a 2a 2a 2a 2a 2a 2a 2a |."."..; |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 00 52 22 | 14 00 3b 20 2a 20 20 20 |*****.R"|..; *   |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000040| 20 20 20 20 20 20 20 20 | 2a 00 76 22 1e 00 3b 20 |        |*.v"..; |
|00000050| 2a 20 51 55 45 4c 4c 43 | 4f 44 45 20 5a 55 20 22 |* QUELLC|ODE ZU "|
|00000060| 54 48 41 54 27 53 20 49 | 54 21 22 20 2a 00 9a 22 |THAT'S I|T!" *.."|
|00000070| 28 00 3b 20 2a 20 20 20 | 20 20 20 20 20 20 20 20 |(.; *   |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 2a 00 be 22 32 00 3b 20 | 2a 20 28 43 29 20 31 39 |*.."2.; |* (C) 19|
|000000a0| 38 39 20 4d 41 54 54 48 | 49 41 53 20 55 4c 4c 4d |89 MATTH|IAS ULLM|
|000000b0| 41 4e 4e 20 2a 00 e2 22 | 3c 00 3b 20 2a 20 20 20 |ANN *.."|<.; *   |
|000000c0| 20 20 20 20 20 20 20 48 | 45 4c 4d 48 4f 4c 54 5a |       H|ELMHOLTZ|
|000000d0| 53 54 52 2e 20 35 33 20 | 2a 00 06 23 46 00 3b 20 |STR. 53 |*..#F.; |
|000000e0| 2a 20 20 20 20 20 20 20 | 20 20 20 36 32 30 30 20 |*       |   6200 |
|000000f0| 57 49 45 53 42 41 44 45 | 4e 20 31 20 2a 00 2a 23 |WIESBADE|N 1 *.*#|
|00000100| 50 00 3b 20 2a 20 20 20 | 20 20 20 20 20 20 20 20 |P.; *   |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 2a 00 4e 23 5a 00 3b 20 | 2a 2a 2a 2a 2a 2a 2a 2a |*.N#Z.; |********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 00 54 23 | 64 00 3b 00 89 23 6e 00 |*****.T#|d.;..#n.|
|00000150| 2e 45 51 20 4e 41 4d 4c | 53 56 20 3d 20 24 45 32 |.EQ NAML|SV = $E2|
|00000160| 35 37 20 20 20 20 20 20 | 20 3b 20 46 49 4c 45 4e |57      | ; FILEN|
|00000170| 41 4d 45 4e 20 55 45 42 | 45 52 4e 45 48 4d 45 4e |AMEN UEB|ERNEHMEN|
|00000180| 00 c3 23 78 00 2e 45 51 | 20 43 48 52 47 4f 54 20 |..#x..EQ| CHRGOT |
|00000190| 3d 20 24 30 30 37 39 20 | 20 20 20 20 20 20 3b 20 |= $0079 |      ; |
|000001a0| 54 45 53 54 20 41 55 46 | 20 57 45 49 54 45 52 45 |TEST AUF| WEITERE|
|000001b0| 20 50 41 52 41 4d 45 54 | 45 52 00 f5 23 82 00 2e | PARAMET|ER..#...|
|000001c0| 45 51 20 43 48 4b 4b 4f | 4d 20 3d 20 24 41 45 46 |EQ CHKKO|M = $AEF|
|000001d0| 44 20 20 20 20 20 20 20 | 3b 20 50 52 55 45 46 55 |D       |; PRUEFU|
|000001e0| 4e 47 20 41 55 46 20 4b | 4f 4d 4d 41 00 33 24 8c |NG AUF K|OMMA.3$.|
|000001f0| 00 2e 45 51 20 46 52 4d | 4e 55 4d 20 3d 20 24 41 |..EQ FRM|NUM = $A|
|00000200| 44 38 41 20 20 20 20 20 | 20 20 3b 20 4e 55 4d 45 |D8A     |  ; NUME|
|00000210| 52 49 53 43 48 45 4e 20 | 41 55 53 44 52 55 43 4b |RISCHEN |AUSDRUCK|
|00000220| 20 41 55 53 57 45 52 54 | 45 4e 00 74 24 96 00 2e | AUSWERT|EN.t$...|
|00000230| 45 51 20 47 45 54 41 44 | 52 20 3d 20 24 42 37 46 |EQ GETAD|R = $B7F|
|00000240| 37 20 20 20 20 20 20 20 | 3b 20 41 44 52 45 53 53 |7       |; ADRESS|
|00000250| 45 20 28 4c 4f 57 2f 48 | 49 47 48 29 20 4e 41 43 |E (LOW/H|IGH) NAC|
|00000260| 48 20 59 2f 41 20 48 4f | 4c 45 4e 00 ad 24 a0 00 |H Y/A HO|LEN..$..|
|00000270| 2e 45 51 20 42 53 41 56 | 45 20 20 3d 20 24 46 35 |.EQ BSAV|E  = $F5|
|00000280| 45 44 20 20 20 20 20 20 | 20 3b 20 45 49 4e 53 50 |ED      | ; EINSP|
|00000290| 52 55 4e 47 20 49 4e 20 | 53 41 56 45 2d 52 4f 55 |RUNG IN |SAVE-ROU|
|000002a0| 54 49 4e 45 00 e6 24 aa | 00 2e 45 51 20 42 4c 4f |TINE..$.|..EQ BLO|
|000002b0| 41 44 20 20 3d 20 24 46 | 34 41 35 20 20 20 20 20 |AD  = $F|4A5     |
|000002c0| 20 20 3b 20 45 49 4e 53 | 50 52 55 4e 47 20 49 4e |  ; EINS|PRUNG IN|
|000002d0| 20 4c 4f 41 44 2d 52 4f | 55 54 49 4e 45 00 ec 24 | LOAD-RO|UTINE..$|
|000002e0| b4 00 3b 00 23 25 be 00 | 2e 45 51 20 44 45 56 49 |..;.#%..|.EQ DEVI|
|000002f0| 43 45 20 3d 20 24 42 41 | 20 20 20 20 20 20 20 20 |CE = $BA|        |
|00000300| 20 3b 20 41 4b 54 55 45 | 4c 4c 45 20 47 45 52 41 | ; AKTUE|LLE GERA|
|00000310| 45 54 45 41 44 52 45 53 | 53 45 00 5c 25 c8 00 2e |ETEADRES|SE.\%...|
|00000320| 45 51 20 53 45 43 41 44 | 52 20 3d 20 24 42 39 20 |EQ SECAD|R = $B9 |
|00000330| 20 20 20 20 20 20 20 20 | 3b 20 41 4b 54 55 45 4c |        |; AKTUEL|
|00000340| 4c 45 20 53 45 4b 55 4e | 44 41 45 52 41 44 52 45 |LE SEKUN|DAERADRE|
|00000350| 53 53 45 00 92 25 d2 00 | 2e 45 51 20 41 44 53 41 |SSE..%..|.EQ ADSA|
|00000360| 56 31 20 3d 20 24 43 31 | 20 20 20 20 20 20 20 20 |V1 = $C1|        |
|00000370| 20 3b 20 53 54 41 52 54 | 41 44 52 45 53 53 45 20 | ; START|ADRESSE |
|00000380| 46 55 45 52 20 53 41 56 | 45 00 c6 25 dc 00 2e 45 |FUER SAV|E..%...E|
|00000390| 51 20 41 44 53 41 56 32 | 20 3d 20 24 41 45 20 20 |Q ADSAV2| = $AE  |
|000003a0| 20 20 20 20 20 20 20 3b | 20 45 4e 44 41 44 52 45 |       ;| ENDADRE|
|000003b0| 53 53 45 20 46 55 45 52 | 20 53 41 56 45 00 02 26 |SSE FUER| SAVE..&|
|000003c0| e6 00 2e 45 51 20 41 44 | 4c 4f 41 44 20 3d 20 24 |...EQ AD|LOAD = $|
|000003d0| 43 33 20 20 20 20 20 20 | 20 20 20 3b 20 41 44 52 |C3      |   ; ADR|
|000003e0| 45 53 53 45 20 46 55 45 | 52 20 52 45 4c 41 54 49 |ESSE FUE|R RELATI|
|000003f0| 56 45 53 20 4c 41 44 45 | 4e 00 08 26 f0 00 3b 00 |VES LADE|N..&..;.|
|00000400| 4c 26 fa 00 2e 42 41 20 | 24 43 46 42 38 20 3b 20 |L&...BA |$CFB8 ; |
|00000410| 41 55 46 52 55 46 20 4d | 49 54 20 53 59 53 20 35 |AUFRUF M|IT SYS 5|
|00000420| 33 31 37 36 20 22 4e 41 | 4d 45 22 2c 3c 41 44 52 |3176 "NA|ME",<ADR|
|00000430| 45 53 53 45 20 31 3e 2c | 3c 41 44 52 45 53 53 45 |ESSE 1>,|<ADRESSE|
|00000440| 20 32 3e 00 52 26 04 01 | 3b 00 7d 26 0e 01 53 54 | 2>.R&..|;.}&..ST|
|00000450| 41 52 54 20 4a 53 52 4e | 41 4d 4c 53 56 3b 20 46 |ART JSRN|AMLSV; F|
|00000460| 49 4c 45 4e 41 4d 45 4e | 20 55 45 42 45 52 4e 45 |ILENAMEN| UEBERNE|
|00000470| 48 4d 45 4e 00 9b 26 18 | 01 20 4c 44 58 23 30 38 |HMEN..&.|. LDX#08|
|00000480| 3b 20 47 45 52 41 45 54 | 45 41 44 52 45 53 53 45 |; GERAET|EADRESSE|
|00000490| 20 38 00 bc 26 22 01 20 | 53 54 58 44 45 56 49 43 | 8..&". |STXDEVIC|
|000004a0| 45 3b 20 28 3d 46 4c 4f | 50 50 59 29 20 53 45 54 |E; (=FLO|PPY) SET|
|000004b0| 5a 45 4e 00 c2 26 2c 01 | 3b 00 ed 26 36 01 20 4a |ZEN..&,.|;..&6. J|
|000004c0| 53 52 43 48 52 47 4f 54 | 3b 20 54 45 53 54 2c 20 |SRCHRGOT|; TEST, |
|000004d0| 4f 42 20 3c 41 44 52 45 | 53 53 45 20 31 3e 20 46 |OB <ADRE|SSE 1> F|
|000004e0| 4f 4c 47 54 00 17 27 40 | 01 20 42 45 51 4c 4f 41 |OLGT..'@|. BEQLOA|
|000004f0| 44 41 42 53 3b 20 4e 45 | 49 4e 2c 20 44 41 4e 4e |DABS; NE|IN, DANN|
|00000500| 20 41 42 53 4f 4c 55 54 | 20 4c 41 44 45 4e 00 1d | ABSOLUT| LADEN..|
|00000510| 27 4a 01 3b 00 52 27 54 | 01 20 4a 53 52 43 48 4b |'J.;.R'T|. JSRCHK|
|00000520| 4b 4f 4d 3b 20 50 52 55 | 45 46 54 20 41 55 46 20 |KOM; PRU|EFT AUF |
|00000530| 4b 4f 4d 4d 41 2c 20 53 | 4f 4e 53 54 20 53 59 4e |KOMMA, S|ONST SYN|
|00000540| 54 41 58 20 45 52 52 4f | 52 00 81 27 5e 01 20 4a |TAX ERRO|R..'^. J|
|00000550| 53 52 46 52 4d 4e 55 4d | 3b 20 4e 55 4d 45 52 49 |SRFRMNUM|; NUMERI|
|00000560| 53 43 48 45 4e 20 41 55 | 53 44 52 55 43 4b 20 41 |SCHEN AU|SDRUCK A|
|00000570| 55 53 57 45 52 54 45 4e | 00 b4 27 68 01 20 4a 53 |USWERTEN|..'h. JS|
|00000580| 52 47 45 54 41 44 52 3b | 20 3c 41 44 52 45 53 53 |RGETADR;| <ADRESS|
|00000590| 45 20 31 3e 20 4e 41 43 | 48 20 59 2d 52 45 47 2e |E 1> NAC|H Y-REG.|
|000005a0| 2f 41 4b 4b 55 20 48 4f | 4c 45 4e 00 dd 27 72 01 |/AKKU HO|LEN..'r.|
|000005b0| 20 50 48 41 3b 20 55 4e | 44 20 48 49 47 48 2d 42 | PHA; UN|D HIGH-B|
|000005c0| 59 54 45 20 41 55 46 20 | 53 54 41 43 4b 20 52 45 |YTE AUF |STACK RE|
|000005d0| 54 54 45 4e 00 1e 28 7c | 01 3b 20 20 20 20 20 20 |TTEN..(||.;      |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005f0| 20 20 20 20 28 41 4b 4b | 55 20 57 49 52 44 20 42 |    (AKK|U WIRD B|
|00000600| 45 49 20 43 48 52 47 4f | 54 20 56 45 52 41 45 4e |EI CHRGO|T VERAEN|
|00000610| 44 45 52 54 29 00 24 28 | 86 01 3b 00 4f 28 90 01 |DERT).$(|..;.O(..|
|00000620| 20 4a 53 52 43 48 52 47 | 4f 54 3b 20 54 45 53 54 | JSRCHRG|OT; TEST|
|00000630| 2c 20 4f 42 20 3c 41 44 | 52 45 53 53 45 20 32 3e |, OB <AD|RESSE 2>|
|00000640| 20 46 4f 4c 47 54 00 88 | 28 9a 01 20 42 45 51 4c | FOLGT..|(.. BEQL|
|00000650| 4f 41 44 52 45 4c 3b 20 | 4e 45 49 4e 2c 20 44 41 |OADREL; |NEIN, DA|
|00000660| 4e 4e 20 52 45 4c 41 54 | 49 56 20 41 4e 20 3c 41 |NN RELAT|IV AN <A|
|00000670| 44 52 45 53 53 45 20 31 | 3e 20 4c 41 44 45 4e 00 |DRESSE 1|> LADEN.|
|00000680| 8e 28 a4 01 3b 00 b6 28 | ae 01 53 41 56 45 20 50 |.(..;..(|..SAVE P|
|00000690| 4c 41 3b 20 48 49 47 48 | 2d 42 59 54 45 20 56 4f |LA; HIGH|-BYTE VO|
|000006a0| 4d 20 53 54 41 43 4b 20 | 48 4f 4c 45 4e 00 f9 28 |M STACK |HOLEN..(|
|000006b0| b8 01 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..;     |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 41 4b |        |     (AK|
|000006d0| 4b 55 20 4e 41 43 48 20 | 43 48 52 47 4f 54 20 57 |KU NACH |CHRGOT W|
|000006e0| 49 45 44 45 52 48 45 52 | 53 54 45 4c 4c 45 4e 29 |IEDERHER|STELLEN)|
|000006f0| 00 16 29 c2 01 20 53 54 | 59 41 44 53 41 56 31 3b |..).. ST|YADSAV1;|
|00000700| 20 53 54 41 52 54 41 44 | 52 45 53 53 45 00 3e 29 | STARTAD|RESSE.>)|
|00000710| cc 01 20 53 54 41 41 44 | 53 41 56 31 2b 31 3b 20 |.. STAAD|SAV1+1; |
|00000720| 46 55 45 52 20 53 41 56 | 45 20 55 45 42 45 52 4e |FUER SAV|E UEBERN|
|00000730| 45 48 4d 45 4e 00 44 29 | d6 01 3b 00 79 29 e0 01 |EHMEN.D)|..;.y)..|
|00000740| 20 4a 53 52 43 48 4b 4b | 4f 4d 3b 20 50 52 55 45 | JSRCHKK|OM; PRUE|
|00000750| 46 54 20 41 55 46 20 4b | 4f 4d 4d 41 2c 20 53 4f |FT AUF K|OMMA, SO|
|00000760| 4e 53 54 20 53 59 4e 54 | 41 58 20 45 52 52 4f 52 |NST SYNT|AX ERROR|
|00000770| 00 a8 29 ea 01 20 4a 53 | 52 46 52 4d 4e 55 4d 3b |..).. JS|RFRMNUM;|
|00000780| 20 4e 55 4d 45 52 49 53 | 43 48 45 4e 20 41 55 53 | NUMERIS|CHEN AUS|
|00000790| 44 52 55 43 4b 20 41 55 | 53 57 45 52 54 45 4e 00 |DRUCK AU|SWERTEN.|
|000007a0| db 29 f4 01 20 4a 53 52 | 47 45 54 41 44 52 3b 20 |.).. JSR|GETADR; |
|000007b0| 3c 41 44 52 45 53 53 45 | 20 32 3e 20 4e 41 43 48 |<ADRESSE| 2> NACH|
|000007c0| 20 59 2d 52 45 47 2e 2f | 41 4b 4b 55 20 48 4f 4c | Y-REG./|AKKU HOL|
|000007d0| 45 4e 00 e1 29 fe 01 3b | 00 04 2a 08 02 20 53 54 |EN..)..;|..*.. ST|
|000007e0| 59 41 44 53 41 56 32 3b | 20 55 4e 44 20 41 4c 53 |YADSAV2;| UND ALS|
|000007f0| 20 45 4e 44 41 44 52 45 | 53 53 45 00 2c 2a 12 02 | ENDADRE|SSE.,*..|
|00000800| 20 53 54 41 41 44 53 41 | 56 32 2b 31 3b 20 46 55 | STAADSA|V2+1; FU|
|00000810| 45 52 20 53 41 56 45 20 | 55 45 42 45 52 4e 45 48 |ER SAVE |UEBERNEH|
|00000820| 4d 45 4e 00 5f 2a 1c 02 | 20 4a 4d 50 42 53 41 56 |MEN._*..| JMPBSAV|
|00000830| 45 3b 20 45 49 4e 53 50 | 52 55 4e 47 20 49 4e 20 |E; EINSP|RUNG IN |
|00000840| 52 45 47 55 4c 41 45 52 | 45 20 53 41 56 45 2d 52 |REGULAER|E SAVE-R|
|00000850| 4f 55 54 49 4e 45 00 65 | 2a 26 02 3b 00 90 2a 30 |OUTINE.e|*&.;..*0|
|00000860| 02 4c 4f 41 44 52 45 4c | 20 50 4c 41 3b 20 48 49 |.LOADREL| PLA; HI|
|00000870| 47 48 2d 42 59 54 45 20 | 56 4f 4d 20 53 54 41 43 |GH-BYTE |VOM STAC|
|00000880| 4b 20 48 4f 4c 45 4e 00 | d3 2a 3a 02 3b 20 20 20 |K HOLEN.|.*:.;   |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008a0| 20 20 20 20 20 20 20 28 | 41 4b 4b 55 20 4e 41 43 |       (|AKKU NAC|
|000008b0| 48 20 43 48 52 47 4f 54 | 20 57 49 45 44 45 52 48 |H CHRGOT| WIEDERH|
|000008c0| 45 52 53 54 45 4c 4c 45 | 4e 29 00 ef 2a 44 02 20 |ERSTELLE|N)..*D. |
|000008d0| 53 54 59 41 44 4c 4f 41 | 44 3b 20 4c 41 44 45 41 |STYADLOA|D; LADEA|
|000008e0| 44 52 45 53 53 45 00 0d | 2b 4e 02 20 53 54 41 41 |DRESSE..|+N. STAA|
|000008f0| 44 4c 4f 41 44 2b 31 3b | 20 55 45 42 45 52 4e 45 |DLOAD+1;| UEBERNE|
|00000900| 48 4d 45 4e 00 40 2b 58 | 02 20 4c 44 59 23 30 30 |HMEN.@+X|. LDY#00|
|00000910| 3b 20 53 45 4b 55 4e 44 | 41 45 52 41 44 52 45 53 |; SEKUND|AERADRES|
|00000920| 53 45 20 46 55 45 52 20 | 52 45 4c 41 54 49 56 45 |SE FUER |RELATIVE|
|00000930| 53 20 4c 41 44 45 4e 00 | 71 2b 62 02 20 2e 42 59 |S LADEN.|q+b. .BY|
|00000940| 24 32 43 3b 20 22 42 49 | 54 22 20 55 45 42 45 52 |$2C; "BI|T" UEBER|
|00000950| 53 50 52 49 4e 47 54 20 | 46 4f 4c 47 45 4e 44 45 |SPRINGT |FOLGENDE|
|00000960| 4e 20 42 45 46 45 48 4c | 00 77 2b 6c 02 3b 00 b1 |N BEFEHL|.w+l.;..|
|00000970| 2b 76 02 4c 4f 41 44 41 | 42 53 20 4c 44 59 23 30 |+v.LOADA|BS LDY#0|
|00000980| 31 3b 20 53 45 4b 55 4e | 44 41 45 52 41 44 52 45 |1; SEKUN|DAERADRE|
|00000990| 53 53 45 20 46 55 45 52 | 20 41 42 53 4f 4c 55 54 |SSE FUER| ABSOLUT|
|000009a0| 45 53 20 4c 41 44 45 4e | 00 cd 2b 80 02 20 53 54 |ES LADEN|..+.. ST|
|000009b0| 59 53 45 43 41 44 52 3b | 20 55 45 42 45 52 4e 45 |YSECADR;| UEBERNE|
|000009c0| 48 4d 45 4e 00 eb 2b 8a | 02 20 4c 44 41 23 30 30 |HMEN..+.|. LDA#00|
|000009d0| 3b 20 4c 4f 41 44 2d 46 | 4c 41 47 20 53 45 54 5a |; LOAD-F|LAG SETZ|
|000009e0| 45 4e 00 1e 2c 94 02 20 | 4a 4d 50 42 4c 4f 41 44 |EN..,.. |JMPBLOAD|
|000009f0| 3b 20 45 49 4e 53 50 52 | 55 4e 47 20 49 4e 20 52 |; EINSPR|UNG IN R|
|00000a00| 45 47 55 4c 41 45 52 45 | 20 4c 4f 41 44 2d 52 4f |EGULAERE| LOAD-RO|
|00000a10| 55 54 49 4e 45 00 00 00 |                         |UTINE...|        |
+--------+-------------------------+-------------------------+--------+--------+